home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / net / if.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  2.6 KB  |  62 lines
  1. if (!defined &_IF) {
  2.     eval 'sub _IF {1;}';
  3.     eval 'sub IFF_UP {0x1;}';
  4.     eval 'sub IFF_BROADCAST {0x2;}';
  5.     eval 'sub IFF_DEBUG {0x4;}';
  6.     eval 'sub IFF_LOOPBACK {0x8;}';
  7.     eval 'sub IFF_POINTOPOINT {0x10;}';
  8.     eval 'sub IFF_NOTRAILERS {0x20;}';
  9.     eval 'sub IFF_RUNNING {0x40;}';
  10.     eval 'sub IFF_NOARP {0x80;}';
  11.     eval 'sub IFF_PROMISC {0x100;}';
  12.     eval 'sub IFF_ALLMULTI {0x200;}';
  13.     eval 'sub IFF_CANTCHANGE {( &IFF_BROADCAST |  &IFF_POINTOPOINT |  &IFF_RUNNING);}';
  14.     eval 'sub IF_QFULL {
  15.         local($ifq) = @_;
  16.         eval "(($ifq)-> &ifq_len >= ($ifq)-> &ifq_maxlen)";
  17.     }';
  18.     eval 'sub IF_DROP {
  19.         local($ifq) = @_;
  20.         eval "(($ifq)-> &ifq_drops++)";
  21.     }';
  22.     eval 'sub IF_ENQUEUE {
  23.         local($ifq, $m) = @_;
  24.         eval "{ ($m)-> &m_act = 0;  &if (($ifq)-> &ifq_tail == 0) ($ifq)-> &ifq_head = $m;  &else ($ifq)-> &ifq_tail-> &m_act = $m; ($ifq)-> &ifq_tail = $m; ($ifq)-> &ifq_len++; }";
  25.     }';
  26.     eval 'sub IF_PREPEND {
  27.         local($ifq, $m) = @_;
  28.         eval "{ ($m)-> &m_act = ($ifq)-> &ifq_head;  &if (($ifq)-> &ifq_tail == 0) ($ifq)-> &ifq_tail = ($m); ($ifq)-> &ifq_head = ($m); ($ifq)-> &ifq_len++; }";
  29.     }';
  30.     eval 'sub IF_ADJ {
  31.         local($m) = @_;
  32.         eval "{ ($m)-> &m_off += $sizeof{\'struct ifnet\' *}; ($m)-> &m_len -= $sizeof{\'struct ifnet\' *};  &if (($m)-> &m_len == 0) { \'struct mbuf\' * &n;  &MFREE(($m),  &n); ($m) =  &n; } }";
  33.     }';
  34.     eval 'sub IF_DEQUEUEIF {
  35.         local($ifq, $m, $ifp) = @_;
  36.         eval "{ ($m) = ($ifq)-> &ifq_head;  &if ($m) {  &if ((($ifq)-> &ifq_head = ($m)-> &m_act) == 0) ($ifq)-> &ifq_tail = 0; ($m)-> &m_act = 0; ($ifq)-> &ifq_len--; ($ifp) = *( &mtod(($m), \'struct ifnet\' **));  &IF_ADJ($m); } }";
  37.     }';
  38.     eval 'sub IF_DEQUEUE {
  39.         local($ifq, $m) = @_;
  40.         eval "{ ($m) = ($ifq)-> &ifq_head;  &if ($m) {  &if ((($ifq)-> &ifq_head = ($m)-> &m_act) == 0) ($ifq)-> &ifq_tail = 0; ($m)-> &m_act = 0; ($ifq)-> &ifq_len--; } }";
  41.     }';
  42.     eval 'sub IFQ_MAXLEN {50;}';
  43.     eval 'sub IFNET_SLOWHZ {1;}';
  44.     eval 'sub ifa_broadaddr { &ifa_ifu. &ifu_broadaddr;}';
  45.     eval 'sub ifa_dstaddr { &ifa_ifu. &ifu_dstaddr;}';
  46.     eval 'sub IFNAMSIZ {16;}';
  47.     eval 'sub ifr_addr { &ifr_ifru. &ifru_addr;}';
  48.     eval 'sub ifr_dstaddr { &ifr_ifru. &ifru_dstaddr;}';
  49.     eval 'sub ifr_broadaddr { &ifr_ifru. &ifru_broadaddr;}';
  50.     eval 'sub ifr_flags { &ifr_ifru. &ifru_flags;}';
  51.     eval 'sub ifr_metric { &ifr_ifru. &ifru_metric;}';
  52.     eval 'sub ifr_data { &ifr_ifru. &ifru_data;}';
  53.     eval 'sub ifc_buf { &ifc_ifcu. &ifcu_buf;}';
  54.     eval 'sub ifc_req { &ifc_ifcu. &ifcu_req;}';
  55.     if (defined &KERNEL) {
  56.     }
  57.     else {
  58.     require 'net/if_arp.ph';
  59.     }
  60. }
  61. 1;
  62.